(sort-subr): Use car-less-than-car when appropriate.

diff --git a/lisp/sort.el b/lisp/sort.el
index 0d6dcb1abf9e87e8b96863976f1419aaae2254c4..00fc16e7a0f103602ba68542314c4b6cccccbce5 100644 (file)
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -95,9 +95,7 @@ same as ENDRECFUN."
                                    'string<)))
                  (sort sort-lists
                        (cond ((numberp (car (car sort-lists)))
-                              (function
-                               (lambda (a b)
-                                 (< (car a) (car b)))))
+                              'car-less-than-car)
                              ((consp (car (car sort-lists)))
                               (function
                                (lambda (a b)